home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0292.ZIP / CUBS.ARC / MENU.PRG < prev    next >
Text File  |  1985-12-21  |  1KB  |  71 lines

  1. *MENU.PRG
  2.  
  3. CLEAR
  4. SET COLOR TO 6/1,6/1,6
  5. CLEAR
  6. SET PRINT OFF
  7. SET SAFETY OFF
  8. SET TALK OFF
  9. ? '                     CUBSCOUT PACK 240 PERSONNEL SYSTEM'
  10. ?
  11. ? '                 Written in dBASE III by Donald E. Keller'
  12. ?
  13. ?
  14. ?
  15. ? '         1. Add New CubScouts               6. Sterilize User'
  16. ?
  17. ? '         2. Add New Leaders                 7. Not Used          '
  18. ?
  19. ? '         3. Edit/Browse Leaders             8. Print Rosters     '
  20. ?
  21. ? '         4. Edit/Browse Cubs                9. Statistics        '
  22. ?
  23. ? '         5. Explode Computer                0. Exit to dBASE'
  24. ?
  25. WAIT '                    Pick a number ...' TO CHOICE
  26.  
  27. SET COLOR TO 7/0,0/7,0
  28. DO CASE CHOICE
  29.     CASE CHOICE = '1'
  30.         SELECT 1
  31.         SET FORMAT TO CUBS
  32.         APPEND
  33.         INDEX ON SCOUT TO CUBS
  34.  
  35.     CASE CHOICE = '2'
  36.         SELECT 2
  37.         SET FORMAT TO CUBLDR
  38.         APPEND
  39.         SET SAFETY OFF
  40.         INDEX ON SCOUT TO CUBLDR
  41.  
  42.     CASE CHOICE = '3'
  43.         SELECT 2
  44.         DO LOOKLDR
  45.  
  46.     CASE CHOICE = '4'
  47.         SELECT 1
  48.         DO SEARCH
  49.  
  50.     CASE CHOICE = '5'
  51.         DO BOMB
  52.  
  53.     CASE CHOICE = '6'
  54.         DO STERILE
  55.  
  56.     CASE CHOICE = '7'
  57.  
  58.     CASE CHOICE = '8'
  59.         DO ROSTERS
  60.  
  61.     CASE CHOICE = '9'
  62.         DO STATS
  63.  
  64.     CASE CHOICE = '0'
  65.     SET COLOR TO 7/0
  66.     CANCEL
  67. ENDCASE CHOICE
  68. ENDDO CHOICE
  69. RELEASE ALL
  70. CLEAR
  71.